home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dbapg.arc / DOS-TIME.PRG < prev    next >
Encoding:
Text File  |  1984-08-12  |  1.5 KB  |  49 lines
  1. * Program.: DOS-TIME.PRG
  2. * Author..: Anonymous, Luis A. Castro, Robert Goldin
  3. * Date....: 07/01/83, 10/31/83, 01/20/84 
  4. * Notice..: Copyright 1983 & 1984, Ashton-Tate, All Rights Reserved.
  5. * Version.: dBASE II, version 2.4
  6. * Notes...: Loads the IBM-PC system time. 
  7. * Local...: t:hour, t:min, t:sec
  8. *
  9. *  OUT: time:dos-C-8     Time in 24-hour format: [hh:mm:ss]
  10. *       time:ampm-C-8    Time in AM/PM format: [hh:mm AM/PM]
  11. *
  12. SET CALL TO 61440
  13. POKE 61440,180,44,205,33,137,22,13,240,137,14,15,240,195
  14. CALL
  15. *
  16. * ---Get the time values from memory.
  17. STORE STR(PEEK(61456),2) TO t:hour
  18. STORE STR(PEEK(61455),2) TO t:min
  19. STORE STR(PEEK(61454),2) TO t:sec
  20. *
  21. * ---Replace leading blanks with leading zeros.
  22. IF $(t:hour,1,1) = " "
  23.    STORE "0" + $(t:hour,2,1) TO t:hour
  24. ENDIF
  25. IF $(t:min,1,1) = " "
  26.    STORE "0" + $(t:min,2,1) TO t:min
  27. ENDIF
  28. IF $(t:sec,1,1) = " "
  29.    STORE "0" + $(t:sec,2,1) TO t:sec
  30. ENDIF
  31. *
  32. * ---Concatenate the three variables for 24-hour format.
  33. STORE t:hour + ":" + t:min + ":" + t:sec  TO time:dos
  34. *
  35. * ---AM/PM Format Conversion.
  36. DO CASE
  37.    CASE t:hour = "00"
  38.       STORE "12:" + t:min + " AM" TO time:ampm
  39.    CASE t:hour < "12"
  40.       STORE STR(VAL(t:hour),2)+":"+t:min+" AM" TO time:ampm
  41.    CASE t:hour = "12"
  42.       STORE "12:" + t:min + " PM" TO time:ampm
  43.    CASE t:hour > "12"
  44.       STORE STR(VAL(t:hour)-12,2)+":"+t:min+" PM" TO time:ampm
  45. ENDCASE
  46. RELEASE t:hour, t:min, t:sec
  47. RETURN
  48. * EOF: DOS-TIME.PRG
  49.